home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 52 / 64er_Magazin_Sonderheft_52_19xx_Markt__Technik_de_Side_B.d64 / listing 4 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  403b  |  17 lines
  1. 10 input"was nun ";be$:rem befehl
  2. 20 gosub51000         :rem zerlegung
  3. 30 print:print"be$=";chr$(34);be$;chr$(34):print
  4. 40 fori=1to10
  5. 50 :print"be$(";right$(str$(i),len(str$(i))-1);")=";chr$(34);be$(i);chr$(34)
  6. 60 next:print
  7. 70 goto10
  8. 51000 rembe$ in be$(1)-be$(10) zerlegen
  9. 51010 fori=1to10:be$(i)="":next
  10. 51020 wz=1
  11. 51030 fori=1tolen(be$)
  12. 51040 :ifmid$(be$,i,1)=" "thenwz=wz+1:goto51060
  13. 51045 :ifwz>10thenprint"eingabe ist zu lang !":i=len(be$)+1:goto51060
  14. 51050 :be$(wz)=be$(wz)+mid$(be$,i,1)
  15. 51060 nexti
  16. 51070 return
  17.